home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / network / easynet / demo.bas < prev    next >
BASIC Source File  |  1995-12-26  |  4KB  |  136 lines
  1. Attribute VB_Name = "DEMO1"
  2. Global Const CASCADE = 0
  3. Global Const MOZAIQUE_HORIZONTALE = 1
  4. Global Const MOZAIQUE_VERTICALE = 2
  5. Global Const REORGANISER_ICONES = 3
  6.  
  7. Global Const KEY_DELETE = &H2E
  8. Global Const KEY_PRIOR = &H21
  9. Global Const KEY_NEXT = &H22
  10. Global Const KEY_END = &H23
  11. Global Const KEY_HOME = &H24
  12. Global Const KEY_LEFT = &H25
  13. Global Const KEY_UP = &H26
  14. Global Const KEY_RIGHT = &H27
  15. Global Const KEY_DOWN = &H28
  16.  
  17. Global Const WM_COMMAND = &H111
  18. Global Const WM_HSCROLL = &H114
  19. Global Const WM_VSCROLL = &H115
  20.  
  21. Global Const SB_LINEUP = 0
  22. Global Const SB_LINEDOWN = 1
  23. Global Const SB_PAGEUP = 2
  24. Global Const SB_PAGEDOWN = 3
  25. Global Const SB_TOP = 6
  26. Global Const SB_BOTTOM = 7
  27.  
  28. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  29.  
  30. ' Commands to pass WinHelp()
  31. Global Const HELP_CONTEXT = &H1 '  Display topic in ulTopic
  32. Global Const HELP_QUIT = &H2    '  Terminate help
  33. Global Const HELP_INDEX = &H3   '  Display index
  34. Global Const HELP_HELPONHELP = &H4      '  Display help on using help
  35. Global Const HELP_SETINDEX = &H5        '  Set the current Index for multi index help
  36. Global Const HELP_KEY = &H101           '  Display topic for keyword in offabData
  37. Global Const HELP_MULTIKEY = &H201
  38.  
  39. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  40.  
  41. Global Actor$, Role$, Legend$, cr$, lf$
  42. Global Picnum%, AutoSize%, Ok%, AlignMent%
  43.  
  44. Sub ActivateForm()
  45.   CheckZoomMenu
  46.   MDI1.Command5.Enabled = True
  47.   MDI1.Command5.Caption = "Comments " + MDI1.ActiveForm.Caption
  48.  
  49.   Dim Net1 As Control
  50.   Set Net1 = MDI1.ActiveForm.Net1
  51.  
  52.   MDI1.ReadOnlyMenu.Checked = Net1.ReadOnly
  53.   MDI1.MultiSelectionMenu.Checked = Net1.MultiSel
  54.   MDI1.CanSizeNodeMenu.Checked = Net1.CanSizeNode
  55.   MDI1.CanMoveNodemenu.Checked = Net1.CanMoveNode
  56.   MDI1.CanStretchLinkMenu.Checked = Net1.CanStretchLink
  57.   MDI1.CanMultiLinkMenu.Checked = Net1.CanMultiLink
  58.   MDI1.CanDrawNodeMenu.Checked = Net1.CanDrawNode
  59.   MDI1.CanDrawLinkMenu.Checked = Net1.CanDrawLink
  60.   MDI1.AutoScrollMenu.Checked = Net1.AutoScroll
  61. End Sub
  62.  
  63. Sub CheckZoomMenu()
  64.   Dim Zoom%, i%
  65.  
  66.   Zoom = MDI1.ActiveForm.Net1.Zoom
  67.  
  68.   Select Case Zoom
  69.   Case 100
  70.     i = 0
  71.   Case 200
  72.     i = 1
  73.   Case 50
  74.     i = 2
  75.   Case 0
  76.     i = 3
  77.   End Select
  78.  
  79.   MDI1.ZoomValueMenu(i).Checked = True
  80. End Sub
  81.  
  82. Sub CursorShape(Net1 As Control)
  83.   Dim area%
  84.  
  85.   area = Net1.PointedArea
  86.   Select Case area
  87.   Case 0
  88.     Net1.MousePointer = 8
  89.   Case 1
  90.     Net1.MousePointer = 7
  91.   Case 2
  92.     Net1.MousePointer = 6
  93.   Case 3
  94.     Net1.MousePointer = 9
  95.   Case 7
  96.     If Net1.SelectMode = True Then
  97.       Net1.MousePointer = 2
  98.     Else
  99.       Net1.MousePointer = 0
  100.   End If
  101.   End Select
  102. End Sub
  103.  
  104. Sub DeactivateForm()
  105.   Dim i%
  106.   For i = 0 To 3
  107.     MDI1.ZoomValueMenu(i).Checked = False
  108.   Next
  109.   MDI1.ReadOnlyMenu.Checked = False
  110.   MDI1.MultiSelectionMenu.Checked = False
  111.   MDI1.CanSizeNodeMenu.Checked = False
  112.   MDI1.CanMoveNodemenu.Checked = False
  113.   MDI1.CanStretchLinkMenu.Checked = False
  114.   MDI1.CanMultiLinkMenu.Checked = False
  115.   MDI1.CanDrawNodeMenu.Checked = False
  116.   MDI1.CanDrawLinkMenu.Checked = False
  117.   MDI1.AutoScrollMenu.Checked = False
  118. End Sub
  119.  
  120.  
  121.  
  122. Sub SpeedOFF(Net1 As Control)
  123.   Net1.Repaint = True
  124.   Net1.DoChange = True
  125.   Net1.DoSelChange = True
  126.   Net1.CheckItem = True
  127. End Sub
  128.  
  129. Sub SpeedON(Net1 As Control)
  130.   Net1.Repaint = False
  131.   Net1.DoChange = False
  132.   Net1.DoSelChange = False
  133.   Net1.CheckItem = False
  134. End Sub
  135.  
  136.